{1 index xprot0 eq 3 index xpfreq1 eq and{3 1 roll pop pop xpfreq0 xprot0 3 -1 roll}
if}ifelse}ifelse}ifelse xpsetscreen}def

{xpcount 1 eq
{/xpcount 2 def/xpspf1 exch def /xprot1 exch def /xpfreq1 exch def xpfreq0 xprot0 /xpspf0 load}
{dup /xpspf1 load eq 2 index xprot1 eq and 3 index xpfreq1 eq and
{pop pop pop xpfreq0 xprot0 /xpspf0 load}

currentscreen /xpspf0 exch def /xprot0 exch def /xpfreq0 exch def
/xpcount 0 def
/xpsetscreen /setscreen load def
/setscreen{xpcount 0 eq{/xpcount 1 def}